*******************************************
Script: Diashow 'Random Dreiecke'

Script mit Doppelklick oder STRG+R aufrufen
===========================================

____________________________________________
Random Dreiecke
===============

ScriptBegin
var Grafik = "Script Turtle";

function init()
{ t.setBrush("firebrick");
  t.setPage();
  t.msg( "Diashow: "+t.showDia(500,10), "blue");
}


function dreieck()
{ t.setNoStyle();
  t.goTo(0,0); t.turnTo(t.rnd(360));
  t.trianglePolygon(t.rnd(40)+20,
                    t.rnd(90)+30,
                    t.rnd(50)+20);
  
  t.setPen(); t.setBrush(t.rndRGB1());
  t.goTo( 130-t.rnd(260), 100-t.rnd(200)); 
  t.drawPolygon();
} 

function draw()
{ 
 t.setRndRGB("yellowgreen");
 t.setRndHeller(100,90);
 for(var i=0; i<300; i++) dreieck();
}
ScriptEnd
